(calc-flush-caches): Use `mapc' rather than `mapcar'.

diff --git a/lisp/calc/calc-stuff.el b/lisp/calc/calc-stuff.el
index a1f50816519bf82da3f22c10870b0832ea09261a..5dcc5365d10af95f1908e31495171bf26659d4f3 100644 (file)
--- a/lisp/calc/calc-stuff.el
+++ b/lisp/calc/calc-stuff.el
@@ -191,7 +191,7 @@ With a prefix, push that prefix as a number onto the stack."
         math-eval-rules-cache-tag t
         math-format-date-cache nil
         math-holidays-cache-tag t)
-   (mapcar (function (lambda (x) (set x -100))) math-cache-list)
+   (mapc (function (lambda (x) (set x -100))) math-cache-list)
    (unless inhibit-msg
      (message "All internal calculator caches have been reset"))))